﻿Public Class ThamSoDAO
    Public Shared Function LaySoKhachToiDa() As Integer '
        Dim str As String = "select SoLuongKhachToiDa from THAMSO"
        Return Integer.Parse(Dataprovider.ExecuteScalar(str))
    End Function
    Public Shared Function LayHeSoKhachNuocNgoai() As Single
        Dim sql As String = "select HeSoKhachNuocNgoai from THAMSO"
        Return Single.Parse(Dataprovider.ExecuteScalar(sql))
    End Function
    Public Shared Function LayPhuThu() As Single
        Dim sql As String = "select PhuThu from THAMSO"
        Return Single.Parse(Dataprovider.ExecuteScalar(sql))
    End Function
End Class
